library(ape)
setwd(dir ="~/Desktop/mrbayes/Pinales")
library(seqinr)
library(ape)
setwd(dir ="~/Desktop/mrbayes/Pinales")
Pinales_its2 <- read.csv("Pinales_its2.csv")
Pinales_its2_genbank_its2 <- read.GenBank(Pinales_its2$its2)
write.dna(Pinales_its2_genbank_its2, file = "Pinales_its2.fasta", format = "fasta", append = FALSE)
Pinales_its2_seqinr <- read.fasta(file = "Pinales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Pinales_its2_seqinr, names = Pinales_its2$speciesname, file.out = "Pinales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Poales")
Poales_its2 <- read.csv("Poales_its2.csv")
Poales_its2_genbank_its2 <- read.GenBank(Poales_its2$its2)
write.dna(Poales_its2_genbank_its2, file = "Poales_its2.fasta", format = "fasta", append = FALSE)
Poales_its2_seqinr <- read.fasta(file = "Poales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Poales_its2_seqinr, names = Poales_its2$speciesname, file.out = "Poales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Proteales")
Proteales_its2 <- read.csv("Proteales_its2.csv")
Proteales_its2_genbank_its2 <- read.GenBank(Proteales_its2$its2)
write.dna(Proteales_its2_genbank_its2, file = "Proteales_its2.fasta", format = "fasta", append = FALSE)
Proteales_its2_seqinr <- read.fasta(file = "Proteales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Proteales_its2_seqinr, names = Proteales_its2$speciesname, file.out = "Proteales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Rosales")
Rosales_its2 <- read.csv("Rosales_its2.csv")
Rosales_its2_genbank_its2 <- read.GenBank(Rosales_its2$its2)
write.dna(Rosales_its2_genbank_its2, file = "Rosales_its2.fasta", format = "fasta", append = FALSE)
Rosales_its2_seqinr <- read.fasta(file = "Rosales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Rosales_its2_seqinr, names = Rosales_its2$speciesname, file.out = "Rosales_its2_sequences.fasta")
Rosales_its1 <- read.csv("Rosales_its1.csv")
library(seqinr)
library(ape)
setwd(dir ="~/Desktop/mrbayes/Sadxifragales")
Saxifragales_its2 <- read.csv("Saxifragales_its2.csv")
setwd(dir ="~/Desktop/mrbayes/Saxifragales")
Saxifragales_its2 <- read.csv("Saxifragales_its2.csv")
Saxifragales_its2_genbank_its2 <- read.GenBank(Saxifragales_its2$its2)
write.dna(Saxifragales_its2_genbank_its2, file = "Saxifragales_its2.fasta", format = "fasta", append = FALSE)
Saxifragales_its2_seqinr <- read.fasta(file = "Saxifragales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Saxifragales_its2_seqinr, names = Saxifragales_its2$speciesname, file.out = "Saxifragales_its2_sequences.fasta")
Saxifragales_its2 <- read.csv("Saxifragales_its2.csv")
Saxifragales_its2_genbank_its2 <- read.GenBank(Saxifragales_its2$its2)
write.dna(Saxifragales_its2_genbank_its2, file = "Saxifragales_its2.fasta", format = "fasta", append = FALSE)
Saxifragales_its2_seqinr <- read.fasta(file = "Saxifragales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Saxifragales_its2_seqinr, names = Saxifragales_its2$speciesname, file.out = "Saxifragales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Vitales")
Vitales_its2 <- read.csv("Vitales_its2.csv")
Vitales_its2_genbank_its2 <- read.GenBank(Vitales_its2$its2)
write.dna(Vitales_its2_genbank_its2, file = "Vitales_its2.fasta", format = "fasta", append = FALSE)
Vitales_its2_seqinr <- read.fasta(file = "Vitales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Vitales_its2_seqinr, names = Vitales_its2$speciesname, file.out = "Vitales_its2_sequences.fasta")
Vitales_its2 <- read.csv("Vitales_its2.csv")
Vitales_its2_genbank_its2 <- read.GenBank(Vitales_its2$its2)
write.dna(Vitales_its2_genbank_its2, file = "Vitales_its2.fasta", format = "fasta", append = FALSE)
Vitales_its2_seqinr <- read.fasta(file = "Vitales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Vitales_its2_seqinr, names = Vitales_its2$speciesname, file.out = "Vitales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Sapindales")
Sapindales_its2 <- read.csv("Sapindales_its2.csv")
Sapindales_its2_genbank_its2 <- read.GenBank(Sapindales_its2$its2)
write.dna(Sapindales_its2_genbank_its2, file = "Sapindales_its2.fasta", format = "fasta", append = FALSE)
Sapindales_its2_seqinr <- read.fasta(file = "Sapindales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Sapindales_its2_seqinr, names = Sapindales_its2$speciesname, file.out = "Sapindales_its2_sequences.fasta")
